home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_01 / xmpl_06.sx < prev   
Encoding:
Text File  |  1996-05-21  |  1010 b   |  46 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 1, example 6
  5.  
  6. -- create a module so that names used earlier in the chapter do not
  7. -- conflict with names used here
  8.  
  9. module Scratch5 uses ScriptX end
  10. in module Scratch5
  11.  
  12. class Canine ()
  13.     instance variables 
  14.         age, length, weight, sex, temperament
  15.     instance methods
  16.         method bark self -> print "makes a lot of noise" 
  17.         method sniff self -> print "sticks nose into things" 
  18.         method sleep self -> print "lazy dog sleeps all day" 
  19. end
  20.  
  21. class Pet (RootObject)
  22.     instance variables 
  23.         name, owner, breed, veterinarian, spayed
  24.     instance methods
  25.         method fetch self -> print "fetches a stick" 
  26. end
  27.  
  28. class PetDog (Pet, Canine)
  29. end
  30.  
  31. class owner ()
  32.     instance variables
  33.         name, address
  34. end
  35. -- create an owner
  36. object jan (Owner)
  37.     settings name:"Jan", address:"Fairfax, California, USA"
  38. end
  39. -- create a dog for the owner to own
  40. object odan (PetDog)
  41.     settings breed:"Mastiff", sex:@male, name:"Odan"
  42. end
  43.  
  44. odan.owner := jan
  45. odan.owner.address
  46. -->>>